
 
 B u t t o n   1   L a b e l   O p e n _ F o l d e r 
 
 B u t t o n   3   L a b e l   W r i t e _ F i l e 
 
 B u t t o n   4   L a b e l   W r i t e _ F i l e _ A S C I I 
 
 
 
 B u t t o n   6   L a b e l   R e a d _ F i l e 
 
 B u t t o n   7   L a b e l   S e l e c t _ F i l e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '       W A R N I N G   -   T H E   F O L D E R   M U S T   E X I S T   ! 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 V a r i a b l e   S t r i n g   F o l d e r N a m e   =   " C : \ T e m p \ " 
 
 
 
 V a r i a b l e   S t r i n g   F i l e P a t h A n d N a m e   =   F o l d e r N a m e   +   " E x a m p l e F i l e . t x t " 
 
 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 
 
 S t o p 
 
 
 
 L a b e l   O p e n _ F o l d e r 
 
 	 L o a d   F o l d e r N a m e 
 
 R e t u r n 
 
 
 
 L a b e l   W r i t e _ F i l e 
 
 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 S a v e   D e l e t e F i l e   F i l e P a t h A n d N a m e 
 
 	 F o r   v 1   =   1   T o   5 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "       " 
 
 	 	 s 1   =   s 1   +   "   R a n d o m   n u m b e r   =   " 
 
 	 	 s 1   =   s 1   +   F o r m a t ( R n d   *   1 0 0 ,   " 0 " ) 
 
 	 	 P r i n t   s 1   +   C R L F 
 
 	 	 S a v e   S t r i n g T o F i l e   s 1   F i l e P a t h A n d N a m e 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   W r i t e _ F i l e _ A S C I I 
 
 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 S a v e   D e l e t e F i l e   F i l e P a t h A n d N a m e 
 
 	 F o r   v 1   =   1   T o   5 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "       " 
 
 	 	 s 1   =   s 1   +   "   R a n d o m   n u m b e r   =   " 
 
 	 	 s 1   =   s 1   +   F o r m a t ( R n d   *   1 0 0 ,   " 0 " ) 
 
 	 	 P r i n t   s 1   +   C R L F 
 
 	 	 s 1   =   " < A S C I I > " +   s 1 
 
 	 	 S a v e   S t r i n g T o F i l e   s 1   F i l e P a t h A n d N a m e 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   R e a d _ F i l e 
 
 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 s 1   =   G e t T e x t F i l e ( F i l e P a t h A n d N a m e ) 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l   S e l e c t _ F i l e 
 
 	 C o n t r o l s   C l e a r T e x t B o x 
 
 	 s 1   =   S e l e c t F i l e ( F o l d e r N a m e ) 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   v 1 
 
 ' W A T C H   s 1 
 
 ' W A T C H   N o w 
 
 ' W A T C H   P r i n t   N o w 
 
 ' W A T C H   N o w 
 
 